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SUMMARY 


A study has been performed to evaluate automatic switching of the 
Shuttle Orbiter S-Band Quad Antennas by the Orbiter on-board 
computers. The study involved the development and use of an 
extensive computer program to determine antenna switch position states 
as a function of time for various orbital activities. The selection 
of the optimum Quad Antenna element at any given time is based on 
the look angle to the appropriate Tracking and Data Relay Satellite 
(TORS). This study shows that a 2.4 second period is required for 
updating the S-Band Quad Antenna switch state based on a maximum 
roll rate of 2° per second. The possibility of a variable update 
period is suggested since the 2® per second attitude rate is 
seldom encountered and would, for example, dictate approximately 
248,000 on-board computer calculations during Reference Mission 2. 

The average number of antenna switch state changes was found to be 
in the range of 1300 for Reference Mission 2. 


vi 
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I. INTRODUCTION 

The purpose of this report is to evaluate the antenna switching 
characteristics of the S-Band Quad Antennas for a typical Shuttle 
mission. This information is needed in order to assess the required 
update period{s) for the S-Band Quad Antenna switch from the 
associated Shuttle Orbiter computer. 

Background information is given in Section II in order to explain the 
operation of the S-Band Quad Antennas, the antenna switch and the 
associated Shuttle Orbiter computer interfaces. This is followed by 
Section III which contains a summary of attitude and trajectory 
profiles of Reference Mission 2 with 3 options. Section IV describes 
the operation of the ground-based Fortran computer programs used to 
simulate automatic switching and mission activity, and this is followed 
by Section V which gives the results of the computer runs which were 
made at the Johnson Space Center. Finally, in Section VI the results 
of the computer runs are combined with the trajectory and attitude 
profiles to evaluate antenna switching characteristics for Reference 
Mission 2 with a recommendation for the antenna switch update period. 
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II. BACKGROUND 

The S-Band Quads consist of four separate antennas mounted 90° apart 
near the surface of the Shuttle Orbiter (See Figure la.). 

The antennas provide communication between the Shuttle Orbiter and 
the ground either directly or via a synchronous Tracking and Data 
Relay Satellite (TORS). In both cases the S-Band Quad Antennas may 
be switched separately by manual or automatic selection. In the 
automatic selection mode real-time calculations are performed by Orbiter 
on-board computers to determine the "optimum" antenna. This selection 
is based on the antenna coverage and the line-of-sight look angle 
between the Shuttle Orbiter and appropriate TDRS or ground station. 

For the purpose of this study each Quad Antenna was assumed to have 
a preferred pattern in a particular roll quadrant. It should be noted 
that the performance of each Quad Antenna is specified with the 
antenna mounted on a minimum ten (10) wavelength diameter ground plane 
(Reference 1) which is covered by an appropriate thermal protection 
system (TPS). Each antenna has a +3dB or better gain defined over a 
140° X 90° ellipse-shaped beam. The gain is referenced to a 
circular isotropic level; however, as was pointed out in Reference 2 the 
specification does not guarantee a perfect isotropic level since the 
word "perfect" is omitted. This may be corrected by inserting the 
word "perfect" in the specification or by specifying the antenna 
efficiency. The antenna patterns for the Quad Antennas mounted on 
the Shuttle Orbiter will be somewhat different from those on the circular 
ground plane due to curvature effects, shadowing and antenna axis canting 
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at each Shuttle Orbiter location. Yet, until accurate patterns are made, 
it is very reasonable to assume that "optimum" coverage is obtained 
in the appropriate roll quadarant. For example, if the line-of-sight 
look angle between the Shuttle Orbiter and a TDRS is in the roll 
quadrant between the +Y and -Z axes the upper right (UR) antenna is 
selected. For look angles in the -Z/-Y quadrant the upper left is 
selected, etc. An illustration of the Shuttle Orbiter coordinate system 
is found in Reference 3 and is redrawn in Figure 1 to define the roll 
angle (#), the pitch angle (9) and the yaw angle ( f ). The reference 
points for roll, pitch and yaw are not given in Reference 1; therefore, 
for the purpose of this report the 0° roll angle is referenced to the 
-Z axis, the 0° pitch is referenced to the +X axis and the 0® yaw is 
referenced to +X axis. It should be noted that a unique line-of-sight 
look angle is defined by specifying any two attitude angles and the 
sequence. For example, a yaw of 30° and a pitch of 30° would correspond 
to a line-of-sight look angle in the -Z/+Y roll quadrant and the upper 
right Quad would be selected. 

The selection of the proper antenna is made by an Orbiter computer which 
controls the antenna switch (Reference 4). A simplified functional 
diagram Is shown in Figure 2 to illustrate the interfaces between 
the antenna switch and the Orbiter computer. The antenna switch has 
four input ports two of which are connected directly to Transponder #1 
and Transponder #2 in the low power mode. The other two input ports 
are used for the high power mode with a paramplifier for either a high 
or low S-Band frequency. The four output ports are connected to 
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FIGURE 2. S-BAND QUAD ANTENNA SVJITCH INTERFACES 
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individual Quad Antennas. The switch is controlled (Reference 4) 
so that any one input port and any one output port are connected. 

In the low power mode, communication is made directly with one of 
five (5) ground stations and in the high power mode, which is used most 
of the time, communication is relayed to a ground station via a TORS. 

The control of the antenna selection may be manual or automatic via 
the associated Orbiter computer. The computer interfaces with the 
switch through the Multiplexer-Demultiplexer (MDM). Signals going to 
the computer include the present antenna state and the selection of 
TORS (high power) or direct ground communication (low power). Also, 
real-time attitude and trajectory information are inputs to the computer. 
The signals from the computer to the switch determine the updated 
antenna switch position (i.e. upper right, upper left, lower right or 
lower left). The output from the computer may consist of a 2-bit 
word for determining the four unique positions. The antenna selection 
is determined by computing the line-of -sight look angle between the 
Shuttle Orbiter and the appropriate TORS or ground station. This 
look angle is then used to determine the "optimum" antenna and an 
updated signal is sent to the switch through the MDM. The major effort 
of this study is to assess the required update period for the antenna 
switch based on Shuttle mission activities. 
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III. ATTITUDE AND TRAJECTORY PROFILES 

Reference Mission 2 is a seven (7) day combined satellite servicing 
and sortie mission. It is one of three reference missions designed 
to illustrate current Shuttle operational functions j techniques, and 
philosophy. Mission 2 is assumed to have three sortie experiment 
options each representing a major scientific discipline area to be 
supported by the Orbiter. These three sortie disciplines are astronomy, 

earth observation and space processing. 

For Reference Mission 2 the Shuttle is assumed to be launched from 
the Kennedy Space Center (KSC) at 9 a.m. on December 1, 1986. During 
launch the vehicle rolls at a maximum of 9° per second (Reference 5). 
After the external tank is jettisoned, the orbital maneuver system 
insertion burn places the Orbiter into a lOO-by-50 nautical mile 
orbit. A maneuver at the first apogee essentially circularizes the 
orbit, and rendezvous phasing with the satellite is begun. The 
rendezvous is completed approximately one day later. 

After rendezvous and docking with the satellite, refurbishment operation 
commences at 26 hours ground elapse time (GET). Refurbishment operations 
terminate at 46 hours GET at which time servicing equipment is stowed. 

At 49 hours GET the orbit is adjusted to establish a perigee of 230 n. 
mi. and then a circularization maneuver is performed at perigee 48 
minutes later. At 50 hours GET the Orbiter is oriented to the attitude 
required for the sortie Operations. Sortie operations are performed 
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during the next 5 days. At 161 hours 30 minutes payload closeout 
operations begin and preparations for deorbit commence. The 
deorbit is executed at 164 hours 28 minutes GET with the landing 
at KSC at 165 hours 32 minutes and 2 seconds GET. 


As previously described Mission 2 can be tailored to support a 
particular scientific discipline by one of three sortie options. 

Option 1 is a satellite servicing/astronomy mission. Option 2 is 
a satellite servicing/earth observation mission, and Option 3 is a 
satellite servicing/space processing mission; 

Option 1 consists of astronomy sorties using the 1.5 meter IR telescope. 
The Orbiter should be stabilized in an inertial attitude with the Orbiter 
-Z-axis pointed to the target. The Orbiter orientation about the Z-axis 
is unconstrained; however, the Orbiter X-axis is assumed to be in the 
orbital plane (X-IOP). 

Option 2 consists of various experiments utilizing the Advanced Technology 
Laboratory (ATL). The best attitude time line for this payload is 
a heads down local vertical /local horizontal (LVLH)' attitude for long 
periods of time. Such an attitude requires thermal conditioning to 
meet TPS constraints. 

Space processing comprises the Option 3 time line with all experiments 
located in the sortie lab. The best attitude seems to be an X-POP 
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(X-ax1s perpendicular to the orbital plane) LVLH inertial attitude. The 
X-axis is reversed every eight hours to comply with thermal conditioning 
constraints. 

Mission" 2 time lines were studied to determine the amount of time 
devoted to specific Orbiter attitude activities. The studied activities 
include holding inertial attitudes, barbecue rolls for thermal 
conditioning, platform alignments and attitude realignments. Reference 
Mission 2 time lines for Options 1, 2, and 3 were obtained from a 
MDTSCO report entitled "Preliminary Baseline Reference Mission 2 
Attitude and Pointing Time Lines" (Reference 6). The times of each 
activity and the percentage of the mission duration are summarized 
in Table I. This table does not account for launch and landing. 

The total mission time for Reference Mission 2 is 165 hours 32 minutes 
and 2 seconds. Launch takes 9 minutes and 57 seconds. The orbiting 
period which is used in Table I takes 161 hours 20 minutes and 3 
seconds. The landing takes 4 hours 2 minutes and 2 seconds. 

The worst case angular rate for obital- operation is given in 
Reference 7 as 2° per second. The maximum roll rate is given in 
Reference 5 as 9° per second for launch and the maximum bank angle 
rate is given as 5° per second for landing. 
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'"'■'""-^OPTION 

ORBITER^^-v^ 

ACTIVITY 

OPTION 1 

OPTION 2 

OPTION 3 

INERTIAL HOLD 

58.2% 

53.8% 

70% 1 

SLEEP PERIOD 
(THERMAL CONDX 
OR INERTIAL HOLD) 

24.8% 

24.8% 

24.8% 

ATTITUDE 

REALIGNMENTS 

(MANEUVER) 

13.3% 



PLATFORM 
ALIGNMENTS 
(STAR TRACKING) 

1.2% 

1.2% 

1.19% 

LVLH ATTITUDE 
HOLD 

— 

14.1% 

— 


TABLE I. ATTITUDE ACTIVITY SUMMARY' OF MISSION 2 
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IV. COMPUTER PROGRAM OPERATION 

This section contains a description of the computer programs 
used to simulate automatic switching. First, the Shuttle 
Attitude and Pointing Timeline (SAPT) Processor is discussed. 

Second, the required additions and modifications are discussed 
including specially developed Subroutines SWITCH, TDRSIF, and SWPRNT. 

A simplified flow chart is given to explain the overall functions 
of each subroutine. 

The Shuttle Attitude and Pointing Timeline Processor is a 
sophisticated computer program which calls up many subprograms. 

The processor has the capability to input, store and edit summary 
attitude descriptor data to allow definition and generation of 
summary attitude and pointing time lines. The inputs consist 
primarily of a set of descriptor data cards defining the attitude 
and pointing requirements for the event being considered {i.e., 
inertial hold, roll rate, pitch rate, etc.). The program 
requires an input trajectory tape for the mission to be simulated, 
an ephemeris tape for a time period including the mission dates, and 
a tape with the SAPT program and its associated subroutines. The 
SAPT program without the associated .subprograms is given in Appendix I. 

Input descriptor card information is given in Figure 3i The input 
format fields' are given in Figure 3a and a sample descriptor is given 
in Figure 3b. The first input card following the XQT (execute) 
command card must be a data card defining the base date from which 
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to measure GET. This card is required only once per program 
execution. The attitude and pointing event descriptor cards follow 
the base data card in a format which might include up to four 
data cards per descriptor (See Figure 3b.). The first card in the 
event set is the event name card. Seventy-two characters are 
allowed to describe the event in an alphameric field format (See 
Figure 3a.). The second data card contains the attitude requirements. 

The third and fourth cards are necessary to define target pointing 
requirements, if any. The event sets are arranged chronologically 
and treated individually during SAPT execution. Typical events 
which can be handled by SAPT are target look angle calculations 
and Shuttle attitude simulations. Celestial, ground and special 
targets may be specified by reference to a target table included 
in a SAPT related subroutine or by inputting values to a set of 
parameters which will locate and define the desired target. As an 
example of the second target definition method, a TORS may be 
specified as an elevated ground target by inputting its longitude, 
latitude and altitude above the earth's surface as shown in Figure 3b. 

A typical run deck set up is shown in Figure 4. SAPT has been 
applied to the problem of calculating look angles (a yaw-pitch 
sequence) to a TORS while maintaining the Shuttle attitude required 
for any specified Orbiter activity. Reference Mission 2 trajectories, 
an ephemeris tape for the period 1986-1995, a modified version of 
the SAPT processor, and three special subroutines are combined to 
form the computational basis for calculating look angles to TORS targets. 
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The direction determined by the yaw-pitch look angle sequence 
is converted into a Shuttle roll quadrant to determine the proper 
S-Band Quad Antenna for communication to a TORS. (Note: a pitch- 

yaw sequence may result in a different look angle direction). 

Subroutine SWITCH determines the roll quadrant based on each 
yaw-pitch look angle using the limits shown in Table II. A listing 
of the Subroutine SWITCH appears in Appendix II. 

Look angle calculations are performed at the same GET's for both 
synchronous TDRS's. Both TDRS's are located 5.6107 earth radii 
above the equator with one at a longitude of 41 °W and the other 
TORS at 171°W. Since communication is assumed to be with only 
one TORS at any given time, a subroutine TORSI F was written which 
defines the range limits of each TORS. A comparison between the 
Shuttle longitude and each TORS longitude determines the closer 
TORS for communication. A method for insuring proper TORS target 
longitudes is employed in TDRSIF- so that consecutive descriptors 
alternate between TDRS's. A listing of the Subroutine TDRSIF 
appears in Appendix III. 

Subroutine SWPRNT was written as a means for controlling the printed 
output resulting from TORS and antenna selections. For example, if 
the currently selected antenna is the same as the antenna previously 
selected, then no switch change is required. SWPRNT will not allow the 
event to be printed if the Shuttle longitude is out of the range of the 
current TORS longitude limits or if the current selected antenna is the 
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For 180° < YAW < 360° 

Upper Right (UR) 
Upper Left (UL) 
Lower Left (LL) 
Lower Right (LR) 

0 ° < pitch £ 90° 
90° < pitch < 180° 
180° < pitch < 270° 
^70° < pitch < 360° 

Upper Left (UL) 
Upper Right (UR) 
Lower Right (LR) 
Lower Left (LL) 


TABLE II. LIMITS FOR SUBROUTINE SWITCH 
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same as the previously selected antenna. A listing of SWPRNT is 
included in Appendix IV. 

A simplified flowchart of the SAPT processor along with the three 

special subroutines is shown in Figure 5. The descriptor input 

event set is read by a subroutine called in SAPT. The event set 

defines the attitude for the Shuttle and the target information, 

which in this case is the TORS located at 41 °W longitude. A 

yaw-pitch look angle to the TORS is calculated in SAPT. However, 

if the Shuttle is not in the range of the TORS 41 '’W, then the 

look angles to this target will be disregarded and look -angles to 

TORS 171°W will be computed. Descriptors are arranged so that 

\ 

caluclations to both TDRS's are computed at simultaneous GET'ls. If 
the test in TDRSIF is sucessful , that is the Shuttle is closer to the 
TORS at 41 °W, then an antenna selection is made in Subroutine SWITCH. 
SWITCH also compares the currently selected antenna to the previously 
selected antenna. When a different antenna selection occurs an 
output is to be -printed. Otherwise, no information is printed and the 
next input event is read. Subroutine SWPRNT is then called by SAPT 
assuming an antenna change has occurred. SWPRNT prints the selected 
antenna and the current number of total switch position changes. The 
next event set is then read. A printout of an actual run deck used 
for simulation of a 0.5° per second roll is given in Appendix V. 
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V. COMPUTER PROGRAM RESULTS 

The results of the computer runs are shown in Tables II-XI. In 
each run the GET begins at approximately 50 hours from launch and 
represents particular mission activities. This approach of 
simulating particular activities was chooser for two reasons. The 
first is the presently planned activities may be changed at a future 
date, thus exact simulation of a particular mission would be invalid 
at a later date. The second reason is that a detailed simulation 
could easily require 50 hours of Johnson Space Center computer time 
which would have an excessive cost. The simulations for each 
activity last for approximately one orbit except for star tracking 
which lasts only 60 minutes due to earth blockage effects. 

Table III shows that 31 switch position changes are required for an 
earth centered inertial (ECI) roll rate of 0.5® per second during a 
single orbit. It is noted that the TORS at -171° (171 °W) longitude 
is used for the first 42 minutes and that the -41° (41 °W) longitude 
TORS is used during the remainder of the -period. Calculations for 
this printout were made every minute and a printout of data occurs only 
when an antenna change occurs. Also, the antenna selected and the 
number of position changes is printed. For example, at 50 hours 46 
minutes 0 seconds the lower right antenna is used with the TORS at 
41 °W longitude. Three minutes later the antenna is changed to the 
upper right with the same TORS. 
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RT 8 switch PoS changes 
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Table VI. Therinal Conditioning - Roll 0.5° per second. X-axis_Lsun simulation 
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Table VII. Star Tracking - 520 Simulation 
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Table VIII. Star Tracking - 522 Simulatio 
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Table IX. Star Tracking - 530 Simulation 
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Table X. Inertial Hold Simulation 


■C 
pj » 

(n ro 

(D I 


o 

o 



SHOtT, t /iTinifbC Al'D PoInTiNIi TiHt lIioE 


7.2-DN-B0203-001 
Page' 30 











L-OOK 

• ANSLEs — 

.L.aUiC_AAhitrfc,f- 

. U -0 0 -)^ 



vCf'JbLt HOSlTiO, 

r.i CVUH ATTlTUMt 

tc 1 

ATT I TUOt 

TO 

SON 

To earth 

TO target- 


StT 

aLT 

LAT con 

yav pitch 

ROLL 

Y A*' 

PITCH 

ROLL 

YAb 

P UI.Cii— 

_.TAJI -EJLtC+l- 

..T.Aitfi TAb~.fLl T.CH 

H«S 


KVtNY M hi 

Ota oeCi 

Ota OEG 

0E6 

Ota 

OEG 

OEG 

dEG 

OEG 

OEo OEG 

ID OEC OEG 

bo 

0 '0 

lO.IS -17 1 

- 50 . b 93 . 

11 -0 - . 0 

- .0 

lb6«3 

1 &. 1 

323. if 

* 

4 3 ^ 

.0 270. U 

337.9 3M7«i 



^h4A»T jb UJV;ei1 LT 

1 bA'nCb 

POS changes 










- 

^0 

lb *3 

1 u r< 5 “ H ] 2 i A • A 

A 7 « A ■■ J J5 • 

^ l7V*V 6*Cj 

179.9 

166.3 

16.1 

323 ‘H 

86. 

b 3‘15*‘I 

, 79.5 

j37*6 3H8*5 



. S«.,rt.'nr 1 $ u,.HfR fO - 

- - 2 bf. I Tj;h 

POS CHANGES 







- 

b 1 

3** * 0 

roHii -r/i 2 3 6 .r 

rS 2 « C 7 5 » 

7 * 2 3 •$ 

is’*’ 

1B6*S 

16. I 

323 «H 

8 6 * 

b 34&*5 

Iflj .2 273.5 

35^.7 333*6 


- SsW-ArtT bOftt-R- LT 3 SfriTcH POS CHANGES 



Table XI. Heads Down Simulation 




SHWTTLE attitude and POrailNG TIUt'CI'N'E— 


1.2-DN-B0203-007 
. Page. 31 






' 






LOOK fftIGLES 

- LOOK 

angles 

- --- LOOr'ANffLES 





I'USl 1 ION 

LVLh attitude 

LCi 

atti tool 

TO sUn 

TO earth 

TO target 





- al 1 Lai- LON 

Tan pttch 

ROLE 

- -TaT«"- 

PI TCH' 

“ROTL" 

■ -YaA — PTTCH' 

--YAT! " 

-piTCfT 

-TA-fiG-'YAir' 

'PITCH * 

HKS 

MN 

bLUb 

tV£NT 

N Ml ULb 

ul6 

UEG 

DCG 

DEO 

deg 

OEG qEG 

0£G 

0E5 

Id de6 

DEG 

^0 

u 

. 1 

1 ( 7 1 

2 j6, * -61,1 ^5.7 

.0 .0 

• 0 

167.1 

15.1 

323,7 

66,1 345,5 

.U 

27q,o 

337,9 

348^6 


t? 

* I 

S NT jS 

''t.ks '1/r 

buiy^Nt' lb UPpeH 

lI * 

2j/.a -S5«2 12&*2 

LT ■ 2 Switch pus- 

ctjf 

•c 

1*8.4 

3b4*3 

325. 1 

8l*5 347*6 

•0 

27o*0 

338*1 

5.9 

bo 



CHANGES' ■' 










Hb 

•U 

loKb' 

2Ja,| RUtA -lLJ»i* 

-•0 

•0 

333.2 

34(J.2 

217.4 

92*2 l4»7 

*0 

27(j*o 

5] .8 

6 » 6 




buliAbr IS OrpCK" 

Kf — - • — 3 swi rcri pos 

'cH-AN'se-s — 










=>l 

2b 

♦u 

luRs -Ri 

232*8 -J2ti 

•0 *0 

•0 

133*8 

38*6 

312*9 

94*5 345.9 

•0 

27o*0 

136*9 

357.9 




SuiVANf IS LO.vER 

Kl H SflllCH POS 

■ changes' 

. - • 


. — . - — 1 1 - — . 


- - - - 

* ■ 




jb 

* 1 

IdRS -1/1 

237. -63./ 83,3 

-.0 .0 

.0 

l8l.3 

B,9 

324,6 

84,5 346,2 

.0 

27q.0 

357.3 

341,9 




bayANI lb LOnER 

LT - b SWl i CH POS 

changes 










i>l 

40 

• 1 

TuRb -l/l 

237 .6 -bH •4 115.1 

-•0 *0 

"*«0 

172.4 

353*0 

324*a 

8o.3 348.8 

♦0 

27u*0 

356.4 

* 1 




bDvlART IS upper 

LT 6 5* ITCH' POS 

changes 











Table XII. LVLH S-imulation 


”0 — * 
Oi * 

<Q ro 
rD I 
o 


Lo : 


I 

VO 

o 

ro 

Q 

CO 


o 

o 



1.2-DN-B0203-001 
Page 32 

SHOTILE attitude AND POINTING TIME LINE 
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SHUTTLE ATIITUUE AND HOINTINU TIME LiNE 
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shutti-e Attitude and hdintin(i time line 
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LT 

5o switch POS CHANGES 


bo 

‘iZ 


TORS -I7l 

233*2 

9o*7 -117.7 179.9 J7.6 

179*9 

So 



sbRant is LUHER 

LI 

57 SWITCH POS changes 


i3 

•0 

TORS -l/l 

232*9 

93*2 -119*0 179.9 13.8 

299*9 




ssuant is lo.*er 

RT 

S3 Switch pos changes 


bo 

93 

3o*0 

TORS -l7l 

236*3 

99*3 -112*0 179*9 ii*8 

359.9 




SrwiaNT IS upper 

RT 

s9 SWITCH POS CHANGES 


bg 

99 

30*u 

TORS -171 

236*9 

96*6 -lo7*3 179.9 8.0 

1 |9*9 




sbuani is upper 

LT 

60 SWITCH POS changes 


= 0 

9b 


TORS -91 

236*9 

97.6 -lob. 5 179.9 6-0 

179*9 


9fa 


Sbuani is loreR 

RT 

61 SWITCH POS CHANGES 


So 

30*0 

TORS -91 

236*9 

93*6 “1o3.2 179.9 9.1 

239.9 

bu 



SrtUANT IS UPPER 

RT 

62 SWITCH POS changes 


9b 

«0 

TORS -91 

236*9 

99.6 -lOD*/ 179.9 2.2 

300*0 

5u 

97 


sbuiant is upper 

LT 

63 SWITCH POS CHANGES 


•o 

TORS -9l 

236*9 

bl«3 -95.6 179.9 jGB.3 

60 *0 

bu 

97 

30*q 

SbuanT is LUAER 

LT 

69 SWi ICH POS CHANGES 


IDRS -91 

236*9 

S2.Q -92.8 179.9 JS6.9 

1 2Ct*0 

Su 



SBWANT is LOiVER 

RT 

65 SWI rCH POS changes 


90 

30*o 

TORS -9l 

236*2 

53. 3 -87.1 179.9 3b2.S 

290*0 




ShWANT IS upper 

«T 

6a swi ( CH POS changes 



ECt 

T«A 

OEG 

ATTITUDE 
pitch ROLL 
DEG OEG 

LOOK 

TO 

TAW 

DEG 

angles 

SUN 

PITCH 

deg 

LOOK angles 
TO earth 

taw pitch 

DEG OEG 

LOOK angles 
To Target 
TAHg taw pitch 
to DEG deg 

1^6*3 

16*1 

83. R 

282*7 

7*t*2 

22?. 1- 336*5— 

10* 1 

396*8 

1 ba* 3 

16*1 

1R3**! 

2/3*5 

l9*6 

1®0*2 

3o5*o 

16*3 

1*8 

1 56 *3 

l6*l 

263*R 

77.3 

285*6 

|29*? 

25*3 

35o* 5 

12*9 

1 56 *3 

16*1 

323’R 

8 & • b 

395*9 

l79*8 

60 • 8 

399.3 

358*5 

15o*3 

16*1 

33**1 

282.7 

79*2 

291*3 

333*2 

9*0 

397.9 

1&6*3 

16*1 

193**1 

273*5 

19»6 

|80*2 

2?3*9 

|5*2 

1*3 

156*3 

16*1 

263. 9 

77*3 

285*6 

U2*3 

28*0 

JS1*9. 

12*2 

i56*3 

16*1 

323*9 

36*5 

395.9 

i79*8 

72*9 

395*9 

358.8 

156*3 

16*1 

83.9 

282.7 

79*2 

259*2 

331*0 

8_*.2 

398*3 

156*3 

16*1 

193*9 

273*5 

19*6 

l8(,*3 

Z6| *8 

l-NT 1 

- L* 1 

156"3 

16*1 

263*9 

77*3 

285*8 

99*2 

29*6- 

.352*0 

11*3 

1 So * 3 

16*1 

323*9 

8^ • b 

395*9 

l79*5 

89*0. 

127_*6 

398*5 

1 5a* 3 

16. 1 

23*9 

B5«i 

95*3 

265*3.. 

...ao«o - 

13 6.* 6. 

.35* 1 

156*3 

16*1 

83*9 

282*7 

79*2 

267*5 

33o*-l 

-200*2 

5o*7 

1 S6 * 3 

16*1 

203*9 

279*9 

31 9*7 

8B« 1 

33o *0 

223*5 

329*5 

156*3 

16*1 

263*9 

77*3 

285*8 

85*8 

29.»9 

.l59*Z. 

309*0 

lbo*3 

1 6* 1 

23*9 

85*1 

95*3 

278*6 

29*7 

136*1 

35*8 


Table xni. (Continued) 
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bu 

•0 
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bo 

3o*a 

bo 
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bu 

b^ 

•0 

bu 

53 

•0 

I>(J 

53 

3o»0 

5u 

51 

30*0 

So 

5b 

•0 

5ti 

b6 

•u 

50 

56 

3o«(j 

&0 

57 

3ui|) 

by 

5U 

•0 

bo 

57 

•0 

by 

57 

3o«tl 
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LOBa 

angles 

LOOK 

angles 

look angles 


vehicle position lvlh attitude 

ECl 

attitudl 

TO 

SUN 

TO earth 

To TARGET 

event 

ALT 

LaT LON YAW PITCH 

roll 

YaW 

PITCH 

Roll 

YaA 

pitch 

Yaw 

pitch 

TaRg Ta» 

PITCH 

N HI 

OES ijEG 0£6 oeG 

OLU 

l)tO 

OEU 

0 E 6 

OEU 

oes 

OEG 

de® 

•0 dE 6 

DEG ‘ 

TORS ■‘*1 
SbuaNT 15 OPHEF? 

236*2 

LT 

ba*9 -BH.J ,77.9 3 So *6 

67 SWITCH FOS changes 

ooa*o 

156*3 

| 6*1 

®3*1 

282 * 7 . 

. ,7.1.2- 

260^*8 ,330^5-.. 

... 2Q.11-2- 

..Sj-.l 

TORS -ll 

237*5 

5H.7 -77,7 177.9 316.7 

6 o *0 

1 S 6.3 

16* 1 

203.1 

271*7 

JlH*7 

-7l*7 

330*9 

■ ■ - 221*1 

-32H.0 

SBOANT is LOnER 

LT 

6 B SWITCH POS CHANGES 







TORS 

237.7 

5H.9 -71.7 179.7.3Mii,B 

12 Q.Q 

166.3 

16*1 

263>1 

77.3 

285*8 

72*5 

28*8.-, 

i-sets 

308 >2 

SBUANT IS LUAER 

RT 

67 SWI TCH POS CHANGES 








TORS “'ll 

237.6 

55. 2 - 68 . j 177.7 31Q.7 

210*0 

i56.3 

16,1 

23*1 

8 S., 

....1S.«3. 

- 2 ’i*-e 

-. 28 * 2 . 

-- --135*0 

36*2 

SBUANT IS Upper 

Rt 

70 SWITCH POS CHANGES 






TORS -Hi 

237.5 

5b. 2 - 6 ».o 179.7 339. u 

300*0 

1 56 » 3 

16*1 

83*1 

282*7 

71*2 

293.9 

332*2 

201*4. 

52,3 

SbUant is upper 

LT 

71 switch POS changes 








TORS -Hi 

237.2 

51.7 -ba ,6 I77.B 335*1 

60*0 

1 S 6.3 

1 6 . 1 

203*1 

271*9 

311*7 

6 1 . 8 

333*0 

225*6 

323.8 

SouanT is LOWER 

lT 

72 SiVIICH POS CHANGES 






TORS -Hi 

237.| 

SI . 6 -sS.H i77.8 333.2 

120*0 

156*3 

16.1 

243*1 

77*3 

285jB 

59.7, 

26*5 - 

.. I58f1 

-307.2 

SbuaNT is luaer 

RT 

73 SWITCH POS changes 








TORS -Hi 

236. B 

53.8 -17.2 179.8 329.3 

210*0 

1 b6.3 

| 6 .| 

23*1 

85. 1 

15*3 

301*1 

25*1 

133*8 

34.2 

SBUANT IS Upper 

RT 

71 SWITCH POS changes 









TORS -HI 

236.6 

53.3 -H 6.2 177.8 327.1 

3 yo *0 

|S6.3 

16.1 

83*1 

282*7 

71.2 

3q6*& 

335* t 

201*8 

83.3 

SbUaNT is upper 

lT 

75 switch POS CHANGES 









TORS -Hi 

237 »L 

52.* -Hy.5 177.8 323*5 

60 » I 

|b6*3 

16.1 

103*1 

271.7 

311*7 

19. 5 

336*3 

224*9 

323*9 

sbuant is Lower 

LT 

76 SAl 1 CH POS CHANGES 








tors -hi 

236 . B 

51*2 -37 . 8 177.8 321*6 

120*1 

156*3 

16. 1 

263*1 

77.3 

265.8 

17*5 

23*1- 

158*8 

304. 1 

SBUANT IS LOWER 

RT 

77 SWITCH POS changes 








TORS -Hi 

236.3 

19. S -32,6 179.8 317.7 

210*1 

1 b 6 *3 

16.1 

23*1 

65*1 

15*3 

31.4*1 

21*6 

132*1 

35.9 

sbuant is upper 

RT 

78 SWITCH POS changes 









TORS -Hi 

236.1 

IB.S -3y.2 179.8 315.8 

300* 1 

1 56 >3 

16. 1 

83*1 

262.7 

.71*2 . 

3L8 • H. 

338*9 .. 

- — 200*7- 

b-H.H 

SbUaNT is upper 

LT 

79 SWITCH POS CHANGES 









TORS -Hi 

235.7 

16*5 -25.6 177.7 311.9 

60*1 

156.3 

16,1 

203*1 

271.7 

3iH*7 

37*9 

31q*6 

228*3 

321.1 

Sbuant is luaer 

LT 

So switch POS CHANGES 









TORS -Hi 

235*5 

1b»1 -23.5 179.7 310*0 

120*1 

156*3 

16. 1 

263*1 

77.3 

285*8 

35*9 

lB* 8 . 

.159*9 

305. 1 

Sbuant is luaer 

RT 

81 SWITCH POS changes 









Table XIII. (Continued) 
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Table IV shows an ECI pitch of 0.5° per second over a one orbit 
period. In this -case only 16 switch changes occur. The ECI yaw 
and roll angles appear to vary during this simulation. The yaw-pitch- 
roll sequence results in apparent changes in the yaw and roll angles; 
yet, when taken in that sequence the resulting attitude maneuver is 
an ECI pitch of 0.5° per second. Similar results are obtained in 
Table V with 17 switch position changes for an ECI yaw of 0.5° per second. 
Table VI shows 32 position changes for thermal conditioning with the 
X-axis of the orbiter perpendicular to the Orbiter-sun line and a 
barbeque rate of 0.5° per second. Tables VIII - IX show 2-4 
switch changes for star tracking over a 60 minute period. Target 522 
is designated as M82, target 522 is designated as M42 (Oeion) and 
target 530 is designated as W51 (W3). The ECI inertial hold of 
Table X resulted in 2 switch position changes and the heads down LVLH 
earth pointing results in 3 changes in Table XI. The LVLH simulation 
of Table XII resulted in 6 position changes for at 100 minutes period. 

And finally in Table XIII the worst case orbital angular roll rate 
of 2° per second in seen to result in 81 changes for a 60 minute 
period. A summary is given in Table XIV to show switch changes which 
were encountered for each activity simulated. Also included in 
Tables XIV are the required switch update periods which correspond 
to a 5° worst case overlap condition in which the Orbiter could 
maneuver 5° out of the limits of its preferred pattern into the 
optimum region of an adjacent antenna. It is noted that the actual 
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STAR 

TRACKING 


EARTH 

POINTING 


ROLL 

MANEUVER 


ROLL 

MANEUVER 


YAW 

MANEUVER 


PITCH 

MANEUVER 


THERMAL 

CONDX 


** LANDING 


** LAUNCH 



0.5° per 
sec 


ECI 

0= const 
T= const 


2.9 

min. 


20.7 


9.7 sec. 


2° per 
sec 


0.5° per 
sec 


0.5° per 
sec 


ECI 

0= const 
¥= const 


44.44 ^ 81 

sec. 


ECI 

0= const 
0= const 


5.3 min, 


ECI 

T= const 
0= const 


5.6 min. 


11.3 


10.7 


2.47 sec. 


17.6 sec. 


18.75 sec. 


0.5° per 
sec 


5° per 
sec bank 


X-axis 

to 

sunline 


2,8 min. 


21.4 


N/A 


10 sec.* 


N/A 


9.4 sec. 


9° per 
sec roll 


N/A 


15-22.5 

sec.* 


N/A 




,55 sec.* 


*5° OVERLAP 

** ANALYTICAL RESULT-WORST CASE 

TABLE XIV. SUMMARY OF S-B/(nD QuAd ANTENNA SWITCHIhlc REQUIREMENTS 
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update period used will limit the amount of switch "chatter" which 
could occur if the look angle happens to oscillate between two 
optimum regions, so in effect it controls the deadband of the control 
system. 



1.2-DN-B0203-001 
Page 40 


VI. CONCLUSIONS 

Mission 2 activities are discussed in Section III with each orbital 
activity categorized and expressed as a percent of the total mission 
time excluding launch and landing. The percentages in Table I do not 
account for 100% of the mission as the remaining 2.5 to 6 percent is 
not defined at this time. To assess the total number of switch 
position changes for a mission the formula below is used. 

(1) 

Where T is the total mission time in hours excluding launch and 
landing which is 161 hours 20 minutes and 3 seconds. 

N is the number of switch position changes per hour for a 

di 

particular activity (a = 1 to N) 

P is the probability (percent total time x 100) for a 

d 

particular activity (a = 1 to N)' 

Ng is an estimate of switch position changes during launch, 
landing and times not accounted for. 

The estimate is based on 4 switch changes per hour during 
unaccounted for times and 34 changes during launch and landing the 
estimate for the number of switch position changes is 50 for 
Option 1, 74 for Option 2 and 60 for Option 3. A listing of the 
total switch changes for Mission 2, Options 1, 2 and 3 is given 
in Table XV using Equation (1). The average number of switch 
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total 

NUMBER OF 
SWITCH 
CHANGES 

AVERAGE TIME 
I BETWEEN CHANGES 

MIN, IN 
ORBIT UPDATE 
PERIOD* 

: 

AVE 

UPDATE 

PERIOD* 



OPTION 1 

1466 

6,8 min 

■ 

’ 

2.4 sec** 

. 

22.6 sec 

OPTION 2 

1247 

; 7.97 min 

2.4 sec** 

26.6 sec 

. 

. 

OPTION 3 

1221 

8,13 min 

; 

2.4 sec** 
— 

27.1 sec 


*5° OVERLAP 

** BASED ON 2° PER SECOND ANGULAR RATE IN ORBIT 


TABLE XV, TOTAL SWITCH CHANGES FOR MISSION 2 
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position changes for Mission 2 is seen to be approximately 1300. 

Also, the average time between changes and the minimum update 
period is given. 

An examination of the data in Section V shows that the maximum 
orbital angular roll rate of 2® per second will require an update 
period of approximately 2.4 seconds without exceeding the 5° 
overlap limit. For the worst case conditions of launch and landing 
the required update period is reduced to 0.55 seconds and 1 second 
respectively. With an update of 2.4 seconds the associated Orbiter 
computer will be required to make a line-of-sight look angle 
calculation, a TORS selection and an antenna selection 
approximately 248,000 times during Mission 2. For an update 
period of 1 second (worst case landing) 596,000 computer calculations 
would be required and for a 0.55 second update period (worst case launch) 
1,083,000 calculations would be required. Since launch and 
landing are rather precisely defined, it is probably unreasonable 
to specify an update based on the worst case conditions of launch 
and landing. The use of a preprogrammed switching sequence or ground 
commands for antenna control are recommended for this period. 

Another factor to be considered is that a 2° per second roll accounts 
for only a very small part of the mission and the required update 
period during the great majority of the activities is in the range 
of 30-50 seconds. Thus, the possibility of a variable update period 
should be considered. The shorter update period of 2.4 seconds could 
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be used when angular rates exceed a certain value. The variable 
update period would require the additional Orbiter computer input 
of angular rate. 

After the development and use of an extensive computer program 
tool to simulate automatic switching of the S-Band Quad Antennas, 
the following conclusions may be reached. A 2.4 second update 
period should be used for S-Band Quad Antenna switching assuming 
a fixed update rate. If a variable update period is found to be 
practical, then the update period would be approximately 40 seconds 
during most activities with a change to 2.4 seconds during activities 
involving larger angular rates. 

Future efforts involving the S-Band Quad Antennas should logically 
involve a more detailed study of the associated Orbiter computer 
interfaces and the further analysis for simulation of Missions 
1, 3A and 3B along with a feasibility study for implementing a 
variable updated period. 
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The input definitions for ThE event sets ARF given in subroutine 
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0 FoR.O <!APt>SAPT OATf Tb127R page 398 

CDl ‘CARDIN' 

CD2 BASE CARD DEFInTtioNS ” 

C02 NBAS7R,N8ASpT,|;jBASDV.NBASHR,NBASMN,SASSEC 

COP - BARE s.N.T^ THaT O’.e'.t', IS MEASURED FROM (NOMINALLY THE 

C02 LAUNCp G.H.T» 

COZ ITAPE - unit pN WHICH THE COMMON FORMAT ATTITUDE TAPE IS TO HE 
C02 WRITTEN. IF ZERO, NO TAPE. IS REOUirED. . 

COP smtjnt - tihf increment between. pr(nt points oesiNf'o FOR The 
C 02 Co«HO|ki FORMAT T*PE. Ih'iNUTESI 

C02 lUREAO - UNIT f>N which THE INPUT ATTITUDE oFSCRIPtoR FILE WIiL BE 

CD2 Hfii’iNTrO* IF ZERO, *LL INPUT Will BE HANUiL’. 

C02 lUWRT - UNIT nN WHICH THE REVjsEft ATTITUDE DESCRIPTOR FILE iS TO 
C02 BE. written'. IF ZERO, NO TAPE IS To BE WRITTEN. 

C02 iHRSTiHINSTlsEfST 

C02 * get To start Attitude timeline if a Descriptor Filehas 

C02 BEfN. provided, if not input, the start 0(t .the descriptor 

c “2 Fi|E, OR thE First manual input, whichEvfr is earlifr, 

C02 wiI'l.bE used, 

C02 IHREND.MINES'oIsECENO 

COP - get Tn End attitude tihEline if a descriptor File. Has 

C02 BEf;N. provided. IF NOT INPUT. THE fND OF THE DESCRiPTOR 

CD2 FiiEt.oR The Last manual inpUt, whichever is laTer, 

CD? will bE used, 

c 

integer ATTSYS.'aLIGN 

real I ANGI . i ANG2 . I AnS12, I ANG2? 

double precision BASEJD,BASTlM|TGFTi6MT‘,GHTP 
double PREcisipN sHTNXT.TSMcALjTNEXT.TiHTAe 

double precision X IMUDP.V IHUOP .PImUDP ,RKMDP(3) ,VKmoP(3 I ',DV(3i 

double precision GET 

Double precision rsun0p(3i 

real LIFTKo'iSpSEC 

REAL KX.KY.xZ.nUZaMINTIh 

Dimension ouhhatiisi.risi.voi ,rsun<3) . vsun!3I .rhqonisi.vhoomisi 

DIMENSION TaRGfT(3 1 | T DVfC j 3 ) , AT YL V ( 3 , 3 ) ATT I I 3 , 3 ) .SUNVeC(3) , 

• PBI3I .COEVeCIt) ,ATTECI13,31 
dimension RKM(3),yKHl3),RKHUl3) ,R5UNU I 31 
DIMENSION ATTSpI3,3I 

dimension seARrllBl ,RSUNK m(3) 

common/basdt/ base jd , Bast ih'nbasyr’nb ashy iNRASOY . mbashr .nbaSmn, 

• BASSEC , I . 

common/atpcoh/ ohtpIattp(3,31 

COHMON/IERRCM/ lERR. . , .... ... 

COMMON / VEhLB / kX ,KY,kZ,NUZ,BETA,RASUN,OFCSUn,RaHOON.DECMO» 

COMMON/SMCALl,/ TSHCfiL.RSUN.VSUNjRHOON.VHOON. 

COMMON/CARDS^ IuR.HN.SECS, aTTSYSjIMUnUH , IVHS.aNGI ,aNGZi AN63, 

• IHOLDJ XRATFjTpATF (ZRATE I IPTFLS, A| IGN, INST jo, IANGi ,] ANG7, 

• ITYPElilDeF!,;;ART,yAR2*VAR3,IT{RGtivARitiln!H2,IANGlZ,IANG22' 

• ITYPE2,I0FF?,'s/AR!2,VAR7 2,vAR32,ITARG2»VARS2 
comhon/tvcom/ itarg"aLphat,betat,wvec(3)'alphac',8ftac,at, 

• TLOM.TLAT^ ITYpEiIOEF 
CoHHQN/EVNCrjM/wEVENT ( 1 2t .NAhTAr 
common / REyST / REV 

c REV - REV NIiMBfR OF. VEHICLE FRot) START OF MISSION 

COMMON /TRjrMV_/A,E«OINC,ARGPER; ASCNOO.AM.OMEAN.T pUEAN.PEHIOD 
Data RTD/57’.29S779Sy,SEGPHR/3400,O/_ 

DATA DUMHAT.A iS.» O.O /iMInTIH / -1,0 / 

Data itape / i k / 
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9g» 

9l« 

97* 

93* 

9‘(» 

95. 

94. 

97. 

98* 

99. 

(On* 

«dT» 

107* 

1D3» 

109. 

105. 

106. 
107. 
108* 
109. 
I tp. 
Ill* 
1 12 . 
1 13* 
1 19. 
1 15» 
114. 
117. 
1 IB* 
1 19. 
120 * 
121 * 
122 * 
123. 
I 2‘l. 
125* 
124* 
127. 
128* 
129* 
130* 
131. 
132* 
133* 
139* 
1 35* 
134* 
137. 
I 38. 
139. 
19(1. 
19|» 

192. 

193. 

199. 
I 95. 

194. 
197. 


FOR, 6 RAPT, SAP! 

data NBUANKMH />MA)!UIN/54/.NUHLIN/S4/ 

DATA NCARD / iy / 

C EGRAVC - GRAVlTATioNAL CONSTANT OF THE EARTH t KH..3 / SEc.*2 ) 

data EGRAVC t .Ss'.GOl 19999 / 

C DV » SENSED, VEj'oClTY CHANGE OVER TIME (nTERVAU BEtWEEN PRESEnT 

C ANO.PRp-VlnUS RECORD 

data DV / O.OOB.O.OpOtOtOoO / 

data spare /.i9 . 0.0 / 

DATA NUHENT/I/ 

ORR » 1 
RRTFLG » O.n. 

5B0ANT ( ( 1 6. A 

PRTFtS « O.o 
LIFtKG . p.n 
DVNPR = 0.0 
ORAGKG • p.o 
WGTFG . 0.0 
THRKG “ 0.0. 

ISPSEC = 0.0, . , 

CALL INTHSG.(0,o,0) 

c Base card values a”d format fOllo^ 
c 

READt5,9I0I.NBASTfl,NBASMT,NBASDT,NBASHRlMBASMNiBAcSEC, 

* ITAPE.GHTlMT.^UREAD.IOPBT.lHRST'.HtNST'.SECRT.lHREND ,H I NENq ^SfCENd 
.•»IASTP 

91o PoRMAT<IX>19,9il)C,i7l«tXiF5.2,tx,t7.1X,F4.n.2llX,i7), 

. 2('lX,l9,|i', l5,ix,F5.2) ,t2X,li) 

C 

WR I TE I 4 . 9q(5 I 

900 Format! iHi i 
CALL DATEC 

GETST « IhprT ♦ HINST760.0 ,+ SECS j/34po‘.6., 

GETEnD . IHrENO + H!NEhD/40.0 ♦ . S£CEN0/34oo. 0 
IFIGETEND .l'e. GETST) GETEHO • jon'.O 
CALL INPROCr lUpEAO,GETST«GErEND,NUHENT) 

lOo continue 

c the call TO getdee obtains The first event set 
c 

CALL GETDES(IUbEAO,ISTOP) 

c 

CALL CROFILI I 1 
IF ( ISTOP '.GT. .n) GO TO 3S0 
IFHERR .Gt‘. 6'» STOP 
|20 continue . 

JPCARD X I ... 

TGET • IHR * Hw/40 * SECS/3400 
GMT > TGET ♦ 8 aSTIH 
|5o CONTINUE 

CALL TIHECIrMT. IDAYN. IHRN.MINN.SECN) 

TIMTAP » GMT - BASTIH 

call timec,it!mTap,idt,iht,imt.st) 

IHT . IDT. 29 *,rKT 

TTAPE = SNG( (TJmTAP) . , - 

IFdHRN ,GT. 2 j .and. IiDaYN - iOcaLL' .EO. )I iDrALL « IdcaIJl-i 
IF((I0AYN _ I0?ALL) ,GE. O .and'. iIOAYN _ IDCALL) ,LT.2) go to 20n 
IOCaLL => IDfYN 

IFIIHRH .LT. 2t IDCALL • IDAYH » i 
CALL IN)TAL ( IDrALL . tSTOF ) 


.NEW 
.NEW 
• NEW 


.NEW 

*.»I 




ii 

SB 

K cS 
^ Q 

o ^ 


x.§ 

CO I 
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1MB* 

!<(?• 

ISO* 

isT* 

1S2« 
I53» 
ISM* 
is5« 
1S6* 
tS7» 
ise* 
159* 
140* 
t 4 I * 
167» 
143* 
149* 
14S* 
I 44* 
147* 
148* 
I 49* 
17(J* 
171* 
17Z* 
173* 
179* 
175* 
174* 
177* 
178* 
179* 
18n* 
181* 
182* 
183* 
189* 
18S* 
184* 
187* 
138* 
189* 
190* 
191* 
192* 
193* 
199* 
195* 
194* 
197* 
198* 
199* 
200 * 
201 • 
207* 
203* 
209* 
205* 
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19 FOR,G 9APTiSAPT DATf 181279 PifiE 900 

misTOP .GT. A> STOP 

200 continue 

IFCALIGN ,Nf, Tj go to 220 
CALL CR0FIL(21. 

CALL ATT0EF(GHt.ATTP1 
GNTP » GMT 
CALL CrOFILM ) 

220 continue , , 

IF (ATTSTS .EO, NBLANK) IBLAHK ■ I . 

IFIATTSYS ,f0,_NBLANK_I CALL CPDFILI2) 

call attocfightiattec'i ) 

CALL CROFIkI I 

1F(ATTSyS_.(JE, NBLANK) GO TO 225 
DO 223 1»U3 
Do 223 J«l .1 
ATTI ( I ,J) = ATtECI 1 t ,dl 
223 CONTINUE 

CALL EULER(ATT?.IVHS»ANGliANG2,ANG3.ATTECn 
225 CONTINUE _ ^ 

CALL NADIRI(iHT.SCLON,GDLAT»ALTl 
iFflpTFLG '.FS* 6) Go TO 250 
CALL FILTyCJl 1 . 

IFIATTSYS. Eo.NbLAnK) CALL CrDfiL(7> 
call TARVEgiGMx.NEVlVEL .target, to VFC » 

CALL BPCRI I .ATtECI .target, P pl 

Call ywptchif.Javitar.ptctar.pbi 
7So continue 

ITYPE =1 
IDEF • fl 

call TARVEg^GHj .NEWVEL ,5 UNVEC ,TOVec I 
CALL BPCRI 1 .ATlECl .SUNVpC.PBl 
CALL YWPTCHt7,vAWSLN,PTcSUN,PB) 

ITYPE 9 i 
iDEF = I 

Call tarveeaght ,newvel,cOevec,tdvfci 

CALL BpCfil I .AT tECI .COEVEC.PB) 

CALL YWPTCHt2,iAW£0E.PTcC0E’,PBl ... 

CALL ACP(1.2}2,9,| ,3>8 > iHUNUM. I HUNU H , GMT, GHT « ATTEcJ tTDVEC. 

• OHG,Q.O.O.n,OjOiYRAfE,7 RATE, XR AT F ^ aTTu V , YOFF iZOEf.xOFFI 
ZLVLH • 70fe*RtD 

YLVLH * YOFf*RtD 
XLVLH = XPFF*Rie, . 

IFI7LVLH .It. xP'IS) Zt-Vl-H ■ 340.0 ♦ ZLVLH 

IFIYLVLH ,17. 16.05) YLvLH « 340. n + YLVLH 

IFIXLVLH ’.LT. lo.OS) XLVLh o 340.6 + XLVLH 

IFIIHOLO ’.NF, |l GO TO 240 

CALL ZLVDDT jZivLVLHlYLVLH ,ZLVLH,XRATE,YRATf1zRaTEi 
XRATE » XRatE*ISECPHR/RTO) 

YRATE 9 YRAtE»iSECPHR/RTD) 

ZRATE = ZRAtE*(SECPHR/RTD 1 
24o CONTINUE 

IFIIH'lNUM .FO. 0) IMUNUM“1 
M*3 

IFlIASTP.Eoj I |_H*2 

CALL ACPl!,2,Z.9.3,3.M,lMUNUH. I MUNUH . GMT , GMT . * TTEr I .TOVEC. 

• OMG,0.n|n.6,rp'p.YRATE,7RATE,XRATFlATTl ‘ YOFF , Z OFFT X OFF ) 

ZIHU « ZOFF.RT^ 

YiHu « yoffIrto 
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/ 

206* 
207* 
208* 
209* 
210 » 
211* 
217« 
2 13* 
218* 
218* 
216* 
217* 
218* 
21 9 * 
220 * 
221 * 
222 * 
223* 
22<l* 
225* 
226* 
227* 
228* 
229* 
23(1* 
23 I • 
232. 
233* 
238* 
235* 
236* 
237* 
238* 
239* 
290* 
29 I * 
292* 
293* 
298* 
2«5* 
286* 
287* 
29b* 
289* 
250* 
251* 
252* 
253. 
258* 
255* 
256* 
257* 
258* 
259* 
260* 
26l* 

267* 

263* 


0 FD9,0 9aPt,Sa'’t 


bate 
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781278 Page 9oi 


XIMU S xOFF.RTn, 

IFtZlMU .Lt'. -O. 05I ZIHU ■ 36O>0 • ZI«U 

IFIYIHU *LT. "7*051 YIHU • 360*0 * Y I »U 

IFlXlMU .Ut’. -A . 051 XIHU » 360.0 * X I MU 

YAWTAR * YAwTAr.RtD 

PTCTAR « PTfTAr.RTD 

YaWSUM • YAWSUij.RTO 

PTCSIIN * PTrSUM*RTD 

YaWCOE « YAWCOlr.RTO 

PTCCOE = PTfCOF*RYO 

IFISCLON .GT. 180*01 SCLON « SCLOtJ - 360.0 
NUHCOH * i,_ 

Do 280 I=2*8 

DO 700 J>1 , 1 
IJ «( I-t 1 »3„* ') 

IF(MEVE(JT( IJl .NEi NBLAnK) nUHCOM » I 
280 CONTINUE 

CALI. trajcT (G^T ,r,V» JErB) 

IF (JERR .GT. Al STOP 
BMAG = VECOGlRl. 

IF (ITAPE_.ro. 6l Go To 288 

RECFLQ » i.O , , - . 

c recflg- last RfCoro in file flag* if Less than o.n this implies 
C ' LAST RfCORD in file , . 

c prtflg- flag imoicatiNg.type of print pojnt , 

Call GMTCAI IghT.MBASYR.YeAR.GMONTH.GOAY.SHR.GHIN.gSEC ) 

c subroutine gMTjal will compute gRfenwich mean tiMf in year! 

C MONTHiOAY.HnURtMINUTES, AND SECONDS FROM THE BEGINNING OF THp 

C BASE YEAR (mBAcYRI* 

GET o GMT - BAHTIN 

c get - time 7 n hours from launch 

Do 781 J*l .,3 
RKM(J) * R(j) i 6378.16 
C RKH - VEHICIE PAOIU? VECTOR <Ec;l IN KM 
VKNIJl • Vl.ll • (6378.16 / 3600.0 1 
C VKM - VEHIcIe i/ELOClTY VECTOR JECtlJN KM/SEC 

RSUNOPIJI o OBj_E (RSUNl J1 1 • 6378.16000 
RSUNXHtJl * SNkL(RSUNDP(J| ) 

c rsunkm - SUN Vfctor in <m (ecu 
20l continue 

Do 2BS I«I ,3 I 

RKNDP(I) o DBLf- iRKMtll > 

C RKMOP - VFhICi'e RADIUS VECTOR (DOUBLE PRECISION i 

VKHoPlIl * OBLr IVKMdl 1 

C VKNDP - VEhICiE velocity VECTOR (DOUBLE prFcIsIOmI 
785 continue 

XIHUOP “ oni E (XIMU) / 57,2957795(10 
YIHUDP s 081 E (YIMU) / 57.295779500 
ZIHUDP « OBI E (ZIMUl A 57.295779500 

C YlMuOP.ZIMunP.ylHuDP- PITCH, YAW, AnD ROLL GIHBAL ANGLES IRAnlANSI 

C _ WITH RESPECT TO INPUT RFFSMMAT 

RMAGKM » VrrMG (RKHI 

c rhagkm - vehicI'e geocentric radius (XH) 

CALL UNVEC (RKM.RitMUl 

C RKMu - vehicle UNIT RADIUS VECTOR (ECIl 

DECGCN * ASIN (RKHIII3I) 

c Oecgcn - vemicI'e geocentric Declination (radiansi 
rasgcn * at 7 h 7 (rkhu( 2 ) "rkhu 1 1 1 i 
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2bS» 

2bb* 

267* 

248» 

269» 

27g» 

27)» 

277* 

273 * 

27‘l* 
275* 
278* 
277* 
278* 
279* 
28g* 
261 • 
287* 
283* 
28t* 
285* 
266* 
287* 
288* 
289* 
29p* 
291* 
292* 
293* 
298* 
29S* 
296* 
297* 
298* 
299* 
30Q* 
301* 
307. 
303* 
309* 
305* 
DO*. 
307. 
308* 
309* 
310* 
311* 
312. 
313* 
311* 
318. 
314* 
317* 
318. 
3 I 9* 
320* 
321* 


B 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


FOR. S 


SH Pt (SaPT 


date 181778 PaSE 


802 


RaSGCN - VEhICi'E geocentric right ascension (RaDIjNS) 
vhagkh ■ vechgivkmi 

vhagnh - vehIciE infRTiaL Velocity vector magNitUhe (KM/Seo 

VALTKH « ALT •, <4378»16 > 3883.93088551 

VALtKH - vehicie altitude above oplate earth IKH) 

VEHGOL . Goi AT / RTD 

vehgRl - vehicI'e gEoOEtiC latitudf iradiamsi 

VEKLON . SCI ON / RTO 

VEHLON - vehicle longitude (RaDIANSI 

CALL FpA2 (Gm_t .CAHI iPSI I .VELrEL iOAMREL ,PSTREL,GR»8 1 

GaMI - inertia!' flight path angle (RADIANS) 

PSII - inertial A7IHUTH [RADIANS) 

VELREL - REi.ATtVE VELOCITY VECTOR HAGNITUOF |KH/SfCI 

gamrel - re! attve flight path angi e (Radiansi 
psIrel - reiatTve azihuth (radian?) . , 

GRAS - RIGHT. ASCENSION oP GREENWICH (RAoiAMS) 

Arm » a * I i.A / 3780.833 ) 

AKM . SEHIHaJOr axis IKH) 

E - ECCENTRjclifY 
rADinC » DiyC y RfO 

RADINC - inclination TO OrbiTal PIAHE (RADIANS) 

ASCNR = ASCNOO,/ RTD 

ASCNR - RIGHT bSCENSION OF ASCENDING NODE (oADlANe) 

ARGPR B ARGbER ) RTD 

ARGPR - argument of perigee. [RADIANS) 

TrUEAN . TRUE aNOMALV (RADIANS) 

PERIOD - ORJIT^L PERIOD (SECONDS) 

shadow « 1.0 jjEHicle In dirECt sunlight 
B-I. n uEHICLE in darkness 
SHADOW “ t.n . . 

CALL UNVEC jRSiiN.RSUNUl 
cosang " DOT (oKMU.RSUNU) 

IF I ABSlCosAHr.) .GE. I.O) COSANG b S I Sfl ( I .0 1 COSANS 1 
IF { ACOSIcoSAnGi .GE. ( IBB.O - ASJNd.o' HMAG)) I SHADOW • -1.0 
ATTEC! - direction COSInEs BF THE X.Y. AND. 7 BODY AXES WITH 
RfSBEcT TO, the. E d COORDINATE SYSTEM 
CALL ACP ll^2i7|8,5,3.3,IMU(lUH.IHiH(UHiGtlT.GMT*ATTFCl.TDVEC. 

• 0HGi0.0,D.Oi0.0.0tni0.o.ri,(),ATTSR«ALSR.BTSR.GMSR ) 

ALSR - pitch From solar reference. system (tvx eulfri 
BTSR - yaw from solar reference system (7YX EULERi 
GhSR - POLL FRnM SOI AR REFERENCE SYSTEh IZYX EuLErI 
YLVLHR . YLvLH / RTO 

YLVLHR - VEhICI E pjlTCH ANGLE FROH LOCAl VERTICAL iN RADIANS. 

I7YX 'fuleri Taw-pitch seouence 

ZLVLHR B ZLwLH,,/ RTD 

ZLVLHR - vEhICiE yaw angle From local vertical in radians. 
i7vx fUleR) Taw-pitch seouence 

XLVLHR B XLVLH,,/ RTD 

xlvlhr - vehicie roll angle from local vertical in radians, 

(7TX fULER) taw-pitch seouence 
PTSUNR = PTcSUm ! RTD 

PTSUNR - LOOK Ingle theta from vehicle to sun (Ta*-piTch seouencF) 

YWSIINR B YAwSUli / RTD 

twsunp - LOOK ahglC phi From vehklF To sUn (Taw-pitch sFouEucei 

PTCOER = PTCCOe / RTO 

PTCOER - look aNGI.E THETA FROH vehicle TO CFNTeR of earth. 

TmCOER = YAWCOf / RTD 

ywcoeR - i.ooK Ingle phi from vehicle to center of earth. 

SAPT PR0GIV\(1 (CONTINUED) 
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322* 
323* 
32<l» 
32S* 
326* 
32?» 
32B* 
327» 
330, 
33l» 
337» 
333* 
SSM* 
33B* 
336* 
337* 
33a* 
339* 
3ag. 
391* 
392* 
393* 
399* 
39B* 
39** 
397* 
398* 
399* 
3Sn* 
3Si* 
352* 
353* 
359* 
355* 
356* 
357* 
358* 
359* 
3*0* 
3*t* 
362* 
3*3* 
369* 
3*5* 
36** 
3*7* 
3*8* 
349* 
370* 
377 , 
372* 
373* 
379 , 
375* 
376* 
377* 
378* 
379* 
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Q FOR.fi RAPt'SAPT date Tr 1279 PAGE 903 

c SPARE - matpix for spare words to be Reserved for future use 
c 

c The attitude tape records aRe written beUow 

c . .... 

WRITE (ITAPE) _RECFUGiPRTEI,'s.TeAR .ghonth.gdav, 

*GHR 7 GMIN,GSEC,£ET 7 lRKMOP(n,r« 773 l 7 iVKMDP(i),I»l, 21 ^<®VIIl»’*li 3 )i 
» y IHUDP iZIMUCPi* IHU dP iRMagKH iDECScN^RASGcNiVMAGKHTsAMI »PSj J 

* VAlTKH iVEHnO(..VEHLON(VELRELtGAHREL»PSlRRL.SRAS i RF V . AKH 7 E . R Ao I NC ", 

* AScNR,4RGPR;TgUEAN7PER]0D,pYNPR,nRAGKG',UlFTKG;WGTK9,THRKG7l9PSEci 

* EGRAVCiSHADOW,, t AITECH I *Jl ( J“l . 31 , ( aTTECH 7 .U| tJ»l . 3 ) , , , 

* I At TEC I ( 3 >.i) . j*l , 3 ) .tLvLHR,ZLVLHR .jlLVLyR.ALSR.BTjR.GMSR.PTSiiNR, 

* YWSUNR .PTcnER . YWCOER. (RSUNKH(l)ii»t, 3 ),(SPAREIIt.i* 1 . 19 l 
288 Continue 

c 

IF IJPCARO '.Eo'. I I GO TO 2 R 6 
NUNCOH k I 
2 R 0 CONTINUE 

IF<(NUHL 1 N_* Ni'iHCOMI «LE* HAXLIH) go to 300 
WRITE!*, 9^01 ^ . , , 

95 o FORMAT! I Ht . 93 * . "Shuttle attitude and pointing tjmf line*// 

* Rox.'LOOK angles, look Angles , . look ancles*/ 

* 39 x 7 *VEHICt‘E oOSiTlON _ LVLH ATt I TUDE • 7 X 7 * EC J *TT I TUDE * 

* *Tn suN* 7 *i-,* 7 o EARTH* 7 ax.*To target’/ 5 x 7 »get* , 

* 25 X 7 • ALT* 7 ix .jLAT* 7 rX .*LON* , 9 x 7 *YaW PITCH ROLL ,YAW PlTpH »7 

* iRgLL YAW glTCH YaW PiTct! TARG .YAW. PITCH*/ 

* 1 X.*HrS mm SEfS*. 7 X,’EvEnT*, 9 X.*N mI DEG*. 9 X,* 0 fG deg oeg*. 

* 3 X 7 * 0 EG .OEg. deg oeg deg oeg OEG oeg 10*7 

* 3 X,'DEG 0 EG */1 
NUNLIN • 7 

300 CONTINUE 

VARR 2 « VAR? . *NEH 

C THE ATTITUOF AMD POINTING TABLE IS WRITTEN BELOW. 

C . , ■ 

IF IJPCARO, ,E 0 ,.O( GO TO 3°5 

IFIIPTFLG .f 8 , 01 WRITe! 4 , 9*01 1 HtI IMT 7 S j 7 ! NEVeNT i J » , J* 7 , 3 ) , 

* ALT,GDLAT, 5 CLjN.ZLVl-H,YLvLH,XLVLH,ZlMu,YlMU,*lHu 7 YAWSUN« 

* PTCSUNiYAWi-OE^PTCCOE , , * 

94 o EoRyAT!l!!>i 3 )l 2 >I 7 *IX>P 9 *l>|X* 3 !A*t, 2 l|X,E 9 .I>.lX.F 6 ,I. 

* EdXiSUX.rG.ilKZlIXiZnx.FS'.Tln 


CALL TORSIFIORil *NEW 

IFIwrTFLG) 106.303,303 *NEW 

303 CALL SWITCH , . . *NEW 

IF(SB0ANT!21 - SBoANTIII) 3oI,3067io1 *NEW 

301 NCOUNT a NcoUNt ♦ I *NEW 

G0T03O2 »NEW 

309 CALL SWPRNT . *NEW 

SBQANTH) c SBoANT!21 *NEW 

6QT0306 . . , . . *NEW 

302 iFlIpTFLG .nE., 0) WRtTEl6,970l I ^T . I HT ,ST . ! nEVEnT I J > . J* I , 3 I , *NEW 

* ALT7GDLAT.5CLnN',ZLVLH,YLVLH,XLVLH7ziMu7YIHir,XIMU7YAWSUN, *•-! 

* PTcSUN 7 YAW(; 0 fTpTCCOE,NAMTAR.YAWT;R 7 pTj;TAH,, . . 

RTo FoRtfATl IX«J3!li*I2,lX>E9.1 .IX,3IAAt,2!t X • 89^1 > , I XiE6.1 . 

» 2(ix,3iix,f9.ii)7ziix, 2(1x7 PS ’,im77X,a972iTx,F5.Tii 

G0T0309 »NEW 

305 Continue , . . . 


IF (IPTFLG '.Eo7 0) WRITE !67960) IHT , IHt'.St^NCARD^NCARO^NcaRd^ 
•ALT,GDLAT«SrLO,nZLVLH,YLVLH,X).VLH.7IHO,YIMU.X[MU,yAWSUN, 
«PTCSUN,YAWCnE,^TCCOE 



SflPT PROGRAM tCONTINUED) 



38o» 
381* 
382* 
383 * 
38<)* 
365» 
388* 
387* 
388* 
389* 
390* 
391* 
392* 
393* 
399* 
395* 
394* 
397* 
39B» 
399* 
90(1* 
901* 
902* 
903* 
909* 
90S* 
904 * 
907* 
908» 
909* 
9 10* 
911* 
917* 
9 I 3* 
9 19* 
91S« 
914* 
917* 
918* 
9 19* 
920* 
921* 
922* 
923* 
929* 
92S* 
924* 
927« 
928* 
929* 
93CI* 
931* 
932. 
933« 
939* 
93S* 
934* 
937* 


B FOR, 5 <!APt>SAPT OATF "81279 pAfiE 909 

tdrsif(Orb» •new 

IF(WRTFLG) •i04t307,307 .NEW 

307 CALL switch . ^ , ‘NEW 

IF(S8QANTl2t -^SBDANTllll 308,3041308 »NEW 

306 HCOlINT « NcnONT + 1 »NEW 

S0TO3O9 *NEW 

311 CALL SWPRNT «NEW 

SBOANTlIl « SBnANT(21 »NEW 

G0TO3O4 . . . . . , . „ »NEW 

309 IplIPTpLG .NE. 01WRlTE(4i96ol IHT. IHT .ST.NCARD iNCAbD .NCARO, *NEW 

• ALT',GDLAT’,SrLOu,ZLVLH,YLVLH ;XLVLH‘7IMU',YlMir'xIHU,vAWSUN‘, **.l 

• PTCSUN,YAWcnE.oTCCOEiNAMTAR.YAWTAR>TCTAR 

GOT0311 •NEW 


304 CONTINUE 

IFlNUMCOM. I > GO To 3S0 
Do 320 J»Z,NUHrOH 
IJ *(J-1I^3 

WRITE<Ai980t NfVENTIIJ+l),NEVENT( 1 J*2 ) . NEVrnT ( IJ* i) 

98o Format! i 3 x.3 i aI. n 
320 CONTINUE 
C 

35d continue . , . . 

GETWRT = IHR ♦ MN/40,0 ♦ SECS/340n.O 

c The descriptor taSe is written below'. 

C ... - . 

iFliyWRT ,GT. nl WRlTEIlUWRTl GETWRT , ATTSYj , I HUNUm , I VMS . . 

• ANSI ,ANG2,aNG3,IH0|.D,XRATE', YRaTe’,7RATe^JPTFLG,^LI6N,INSTiD, 

• lANGl , I AHG7 . liVPEU lOEFl i V aRT , V AS 2 t V AR? . 1 T aRG I < V aR9 , 1 0 1 N7, 

• lANG12.IANfi22^ITYPE2 • IDEF2 ,VAR|2,i/AR22,VAR32, I T ArG2 • V Ar92 . 

« lNFVENT(J)*J»T,i2l',NAMTAR 

C 

NUHLIN « NUMLIM + NUHCOH 
IF (GHTINT ].GT' J.EC9) GO TO 900 
IF (IBLANK .NE. II CALL CRDFIL131 
IBLANK « 0 . 

IFI lERR .Eo‘, Oj 60 TO l60 
IFlIUWRT .GT. nl ENDFILE IUWRT 
STOP 

900 CONTINUE 

OMT “ GMT ♦ GMtIHT/40,000 
IF (JPCARO '.EO'. 0) GO TO 9S0 
CALL CRDF1l,(1), 

IF (ATTSYS .NE, NBLaNN I CALL CR0FILI31 

c the call to gftdec obtains the next event set 

C 

CALL GETDEStlOBEAO.isTOPI 

C , .... 

IF MTAPE .gT. (I .and. IErR .LT. nl RECFLG I .n 

IFIRECFLG .1 T., 0. jWR ITe I ITApEl_RECfLGiPRTFLG,YEAR .GHONTH.GpAy . 

• GHr'.GMI N,GsFC,r-ET^ IpKMDpI I I ,I»i ja I ^ I V^MOP I I I . . 3 ) . I Oy I 1 1 . 1-7 .3 

• T IMUDP .ZIHIIDP'KIHUo'’ ,RMAGKM,DECGCN iRASGCN][wHAGXM%AMI ;pSj I , 

• VALTKH.VehgOL,VehLON,VELREL.GANREL .PSIREL.gP*S,RfV .AKH.E.RA oiNCl^ 
« aSCHR , ARGPR .TRUEAN^PER jOD.pYNPRinRAGKG^LlFTNfi.NGTNG.THRKcI I cpSec , 

• EGRAVc .SHADOW* I AITECM 1 1 j) « J”l .31 , ( ATtecJ! 2>'II > J”'t .^l • 

• iattEci(3..ii,j“1.3I iYlwlhr.zlvLHr.xlvlhr. alsr.btsh.ghsr.ptsiinr. 

• YWSUNR .PTCnERtYWcOERi IWSUNKH i I ) , lal ,3 1 , (SP aRE( I 1 . I»l • 19 I ' 

IF IrECFLG ’.LT^ O.IFNOFiLE ITApE 

IF (IERR .NF, n I STOP 

SAPT PROGRAM (CONTINUED) 
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la FOR.G <;APt,5aPT OATe PAGE *(05 

438* CALL CROFIL(i> 

“♦a?* jpCARO B 0 

HHp* TNEXT B tHR + mN/AO + SECS/3600 

GMTNXT b TNfXT ♦ BASTIM 

‘*‘*2* M5b continue 

‘•‘*3* IF < (GMTNXT-GmT) ,LE, V.E-B J call CROFtLfTi 

'*'*'*• IF r (GHTNXT-GmT) .LEt T»E-5 I GO TO 12P 

ATTSYS = NRt.AN? 

ALIGN s 0, 

IF 'lERR .EO. A) GO TO Ts6 
‘f'lB* STOP 

*)s?* end 


ENO of COMPILATION; Nn filAGNOSTlcS. 

la hap.g saptp.saptP 


SAPT PROGRAM (CONTINUED) 


Page 54 
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APPENDIX II 
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1 « 


SUBROUTINE 

fW ItCH 

2» 


C0MM0N/ANGtES/.,YAWTAR»PTCTAR»5B0ANT(2>,NC0yNT 

3* 


IF (PTCTAR 

.f0» 0 ) ,PTCTAR»3A0* . , . 



IF < PTCTAR 

.r,T» 0 .AnP« pTCTAR .LE. so t GOTOlO 



If (PTCTAR 

.rT.oP .and, pTcTaR ,LE‘. 10Q1^GOTO2O 

6 * 


IFI PTCTAR 

.fiT. IBp .and. PTcTAR *LE* 27n) gdT030 

1 * 


I F ( PTCt AR 

.RT. 27n .AND. PTCTAR .LF. 360) GfiTOHO 

8* 

lo 

IF(180. - 

YaWTjR) 17.15^15 

9* 

15 

SBQANT ( 2 ) 

= 1 .I' 

to* 


GOTO ! 00 


t 1* 

17 

SBQANT ( 2 ) 

* 2 .r> 

t 2* 


Goto 100 


13* 

20 

ifiTbo, - 

YaWTaR) 15,17^17 

I <<* 

30 

IFII80. - 

YAWTaR) 37,35',35 

J 5* 

35 

SBQANT ( 2 ) 

s 4 .A 

16* 


GOTO 100 


17* 

37. 

SBQANT ( 2 1 

= 3 »r> 

18* 


gotq too 

- 

19* 

40 

iFiiao. - 

YAWTaR) 35.37,37 

20* 

lOo 

RETURN 


2 1 • 


END 



SUBROUTINE SWITCH 
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APPENDIX III 
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tjtppuoducibility of the 


1 « 


SUBROUTINE TDRclF(ORR) 


7* 


COMMON /ALONG/ SCLON 

* VaRR2 .WRTFLG 

2* 


IFIORR .EO. J), G0T035 


q* 


IFIORR .E0..^2)^ gotoro 


s* 


IFCORR .EQ. 0) 60T0H8 


6* 

35 

VARR2 = - 

RI .0 . 



7* 


IFI VARR2 

•Ep. Iqi.oj 

G0T060 


8 » 

<18 

VARR2 = - 

R1 -6 



9* 


ORR = ORR 

+ 2 



10* 


60T050 




1 I * 

‘lO 

VARR2 » - 

1 tT.q 



12* 


ORR s ORR 

- 2 



! 3* 


G0T050 




1 q» 

6D 

ORR = ORR 

. + 1 



15* 

5o 

IF IsCLoN 

• GF* ■•1G&* 

•And* sclon 

• LE» 7q'.) goto 10 

It* 


G0T07G 




17* 

lo 

I F 1 VARR2 

• LT» «.17n. 

•And* VARR2 

• ST. -172. » . WRTFLr-=.-l 

la* 


I F ( VARR2 

,LT, IrO, , 

AND. VARR2 

.6t", -R2;) mirTFlg ,, 1, 

19* 


GOT030 

1 ^ » 



20* 

20 

IF ( VARR2 

• )_T« -RC; • 

AND, VARP2 

•GT. rR2.) WRTFLG s -!• 

2 1 • 


IF ( VARR2 

’.LT. Ii7^, 

*ANp, VARR2 

,GT’, -172.1 WRTFLG * 1 

22* 

30 

return 




23* 


end 





SUBROUTINE TDRSIF 
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APPENDIX rv 



1 • 


SUBROUTINE sWppNT 




?.* 


Common/ angufs/ yawtar 

iPTCTAR 

tSBOAwT (2) 



I ANTaSBQANTi2 1^ 






GO TO < 10,20,30^901 ? 

I ant 


B* 

1 0 

PRINT 1|, NCOUnT 




h* 

1 1 

format ( {“IX ■ ? SBn ant 

IS 

UpPER 

RT?',5x ’ IB , 

7« 


60T050 




8 • 

20 

PRINT 21, NCOUmT 




9* 

21 

format ( 1 9X ' iSBoANT 

IS 

.Upper 

LT,;Bx;!5, 

in* 


GOTOBO _ 




1 1 • 

30 

PRINT 31, NCOUmT 




12* 

31 

format (IHX , ?SB nANT 

IS 

LOWER 

RT ? ,5 X , I B , 

1 3* 


GOTOBO 




m* 

90 

PRINT 91. NCOUnT 




1 5* 

91 

format ( 1 9X , .SBoANT 

IS 

LOWER 

LT ? ^Bx'. IB , 

16* 

5o 

return 




17* 


end 
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, ncoiimT 

I SWtTCH POc changes?) 
* switch POc changes?) 
? switch POq changes?) 
» sw i TCH POe changes t ) 


SUBROUTINE SWPRNT 
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APPENDIX V 



7 •'Snoi 77 .Fg 3 .eETA. VtlllW »M045 -.C i 10.5 

1.2-DN-B0203-001, 

Page 62 q^p 


ASG S=V0o2e3 

ASG ‘==V05c55 _ - . - 

rs=V04S66 

XfJT f.!j« .... - 

W F , S, K 

jvj S -- . - --. 

IN 5 

XgT SAPTp 
19cir-, L? 01 13 S9 

39. 4 




T.ir'S --'ll 
'JO 00 00.0 LVLH 

1 321 

0.0 0.0 0.0 

.50 

_1 

2 $EXT/''! 0,0 
Tijpc “J71 

147.5 

G GRDTGT 5.61074 -'+1.0 

0.0 


'50 0 .0 

2 OFXTAN 0-0 

1 321 
147. S 

G GRDTGT 5.61374 -171.0 . 

0.0 

■i 

TOGS -7,1 
■', ) 0 30.0 

1 32i_ 




2 SLXTAM 0,0 

TOfLS -JL71. 

147.5 

G GRDTGT -5.61074 -41.0 

0.0 


‘JO C 30.0 
2 sexTAfj 0.0 

1 321 
147. 5 

G GRDTGT 5.61374 -171.0 

0 .0 

1 

Ti:p.s -41 

1 321 



__ 1 . . 

2 SE/TAs’ 0,0 
-171 

147.5 

G GRDTGT 5.61074 -41.0 

0.0 


30 1 .0 
2 S£,\>'4N 0,0 

1 321 
147.5 

G GRDTGT 5.61374 -171.0 

0 .0 

1 

T:j';G -41 
JO 1 30.0 

1 321 



. 

2 SEXTAN 0.0 
rOFS -L71 

147.5 

G GRDTGT 5.61074 -41.0 

0.0 


jO 1 30. b 
2 's'-XTAj 0.0 

1 321 
147.5 

G GRDTGT 5.61374 -171.0 

0.0 

1 

TONS -41 
30 ? - 0 

1- 32.1 



...1 

2 SExV'M 0.0 

i2AG,.-_i71 .. . 

SO 2 .0 

7 S-xV,'’ O.d 

147.5 

G, GRDTGT 5.6 1074 -41.0 

0 .0 


1 3.21 



1 321 

Q QHDIC.T 5^61374 -±71.0 


1 

T.PS -4 1 
pO 220.0 



. 

2 s:<r.;N o.b 

.. Li'S -.1/1 ... . 
s ) 2 3 - 0. 0 

2..5--XTAr^ 0,0 

147.5 

G GRDTGT 5.61074 -41.0 

0.0 


1 321 
J.4J.5 

G GRDTGT 5.61 37^ -171.0 

n.n 

i 

1 y\ ?. - 4 1 

C 

_ ...i'iA. ^ ^ . •.vJ 

2 ?"X'-\N 0,0 
. rai;S - L7i. . 
5J 'A .0 

s < (■ : " c . a 

1 321 



L - 

147. 5 

G GRDTGT 5.6107'+ -41. J 

0.0 


1 321 
13-Z.5 

G GRDTGT 5.61374 -L7_L._0 .. 

1 

I 0■''^ -4 1 
S J Of, 0 

1 32J 



1 . 

2 S'rxl"' 0.0 
.T.JVS..-1U„ 
' 3 .K'.C 

147.5 

1 ' 02 i'~ 

_.14f.5 . 

G GROTGT 5.6107-+ -^l.'J 
G GftOIG T..5. q.137.+..-L7L.J_, 

0.0 

.0..G - 

1 


RUN DECK FOR SAPT/SWITCH/SWPRNT/TDRSIF 





tlS?!iODUCIBILrrY OF THE 
OMGINAL PAGE IS POOB 


1 321 




50 4 ,.0 

.. 2...S^/I^-^^.0.J} 

rij4S -171 

Sal- ...4 - .J_32J. 

2 Sr < r-i^i u. 0 



S'-! 'i 20.0 


H-.-2=ott=eom=eat 

Page 63 




147.3 G GROTGT 5 . 6 1 3 74 -171. J 0.0 


.. Z--SZX.T,lli _0. 0- 
TO'IS - J 71 

-ID- Zi.3IL.-C 

2 Sr X TAG 0.0 

TG.fli.-AJ 

50 5 , 0 

. --2. SE.XJA:!.3.-Q-^ 
TORS -171 

50 3 - O _ 

2 SeXTA'i 0.0 

XO.HS. -4J 

50 5 50.0 

.. . 2 -S2-X 0. . 

TiJ‘\S -171 
'jQ__ 5.30.0 

2 SLXGii'j 0.0 

.T0'15..-T4.i 

5 0 i; . 0 

2 sex _ 0-.o. 

Td'-S -171 

._ 5.0. _<> .-Ol 

2 SFX“AN 0.0 

. ■fX.ilX^i.l 

5 J a 30.0 
3. Sfc.X3A5l .0.-a.-„„ 
Ti:'tS -3 71 

5i)..^v_Zi)iL.a 

2 0.0 

iZlil. C_tLK,-J 

GO r 


1 321 

-- L,4.i3j JG..GRD .TGI-.S..6XQ7-4. .-4.1 31 Q 3L 


-J_32J 

147.5 G GROTGT 5,61374 -171.0 0.0 


1 321 

L43.3 331RDJGJL-53bJ.ai4L_3t 


.a,.a- 


147.5 G GROTGT 5.61374 -171.0 0.0 


I 321 

-1^7-.3 G. G.R0.TGJr_S..6J-Q24_=4i3J O-JQ- 


-iZJ 


147.5 G GROTGT 5.61374 -171.0 0.0 


1 321 

-3.4Z.3L. .„JS._G RDIGXJ5..ai.0.7.a. _-Zti..u 031 


147.5 G GROTGT 5.61374 -171.0 0.0 


1 321 

J4-J.J5 G-..G RD IG-T_5 .-611)74. ^6..a 


147.5 G GRDTGT 5.61374 -171,0 0.0 


RUN DECK FOR SAPT/SWITCH/SHPRNT/TDRSIF 



